home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / dpat / dpat129 / amighpv2a / examples / ipush.s < prev    next >
Text File  |  1977-12-31  |  721b  |  60 lines
  1.     include    entries.i
  2.     con(5)    DOCODE
  3. Debut    con(5)    Fin-Debut
  4.  
  5. K    equ    $800F5
  6. J    equ    $800FA
  7. C    equ    $800FF
  8. I    equ    $80104
  9.  
  10.  
  11.     GOSBVL    $0679B
  12.     LCHEX    $00000
  13.     D0=(5)    $80104
  14.     DAT0=C    A
  15.     LCHEX    $00001
  16.     D0=(5)    $800FF
  17.     DAT0=C    A
  18.     LCHEX    $00002
  19.     D0=(5)    $800FA
  20.     DAT0=C    A
  21.     LCHEX    $00003
  22.     D0=(5)    $800F5
  23.     DAT0=C    A
  24.     D0=(5)    $80104
  25.     A=DAT0    A
  26.     R0=A    A
  27.     GOSBVL    $067D2
  28.     GOSBVL    $06537
  29.     GOSBVL    $0679B
  30.     LAHEX    $80104
  31.     D0=A
  32.     D0=(5)    $800FF
  33.     A=DAT0    A
  34.     R0=A    A
  35.     GOSBVL    $067D2
  36.     GOSBVL    $06537
  37.     GOSBVL    $0679B
  38.     LAHEX    $800FF
  39.     D0=A
  40.     D0=(5)    $800FA
  41.     A=DAT0    A
  42.     R0=A    A
  43.     GOSBVL    $067D2
  44.     GOSBVL    $06537
  45.     GOSBVL    $0679B
  46.     LAHEX    $800FA
  47.     D0=A
  48.     D0=(5)    $800F5
  49.     A=DAT0    A
  50.     R0=A    A
  51.     GOSBVL    $067D2
  52.     GOSBVL    $06537
  53.     GOSBVL    $0679B
  54.     LAHEX    $800F5
  55.     D0=A
  56.     GOSBVL    $067D2
  57.     A=DAT0    A
  58.     D0=D0+    5
  59.     PC=(A)
  60. Fin